home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Toolbox / Visual Basic Toolbox (P.I.E.)(1996).ISO / error_hn / casldemo / cssample.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1995-05-09  |  19.3 KB  |  608 lines
  1. VERSION 2.00
  2. Begin Form FRM_Main 
  3.    Caption         =   "CSsample - VB Error Ease Sample Application"
  4.    ClientHeight    =   6720
  5.    ClientLeft      =   1110
  6.    ClientTop       =   330
  7.    ClientWidth     =   7365
  8.    Height          =   7125
  9.    Icon            =   CSSAMPLE.FRX:0000
  10.    Left            =   1050
  11.    LinkTopic       =   "Form1"
  12.    ScaleHeight     =   6720
  13.    ScaleWidth      =   7365
  14.    Top             =   -15
  15.    Width           =   7485
  16.    Begin CheckBox Check6 
  17.       Caption         =   "Delimited Output"
  18.       Height          =   255
  19.       Left            =   5520
  20.       TabIndex        =   30
  21.       Top             =   3120
  22.       Width           =   1815
  23.    End
  24.    Begin CheckBox Check5 
  25.       Caption         =   "Display Number"
  26.       Height          =   255
  27.       Left            =   5520
  28.       TabIndex        =   29
  29.       Top             =   2760
  30.       Width           =   1815
  31.    End
  32.    Begin CheckBox Check4 
  33.       Caption         =   "Memory Enabled"
  34.       Height          =   255
  35.       Left            =   5520
  36.       TabIndex        =   28
  37.       Top             =   3480
  38.       Width           =   1815
  39.    End
  40.    Begin CheckBox Check3 
  41.       Caption         =   "Message Literals"
  42.       Height          =   255
  43.       Left            =   5520
  44.       TabIndex        =   27
  45.       Top             =   2040
  46.       Width           =   1815
  47.    End
  48.    Begin CheckBox Check2 
  49.       Caption         =   "Handler Enabled"
  50.       Height          =   255
  51.       Left            =   5520
  52.       TabIndex        =   26
  53.       Top             =   1680
  54.       Width           =   1815
  55.    End
  56.    Begin CheckBox Check1 
  57.       Caption         =   "DeveloperMode"
  58.       Height          =   255
  59.       Left            =   5520
  60.       TabIndex        =   25
  61.       Top             =   2400
  62.       Width           =   1815
  63.    End
  64.    Begin CSerr CSerr1 
  65.       Prop25          =   "Click on '...' for About Box."
  66.       BypassLog       =   0   'False
  67.       DeveloperMode   =   0   'False
  68.       DisplayNumber   =   0   'False
  69.       ErrorBoxParameters=   0
  70.       ErrorBoxResponse=   0
  71.       ErrorBoxTitle   =   "CSsample VB Error Ease Sample"
  72.       ErrorEXEName    =   ""
  73.       ErrorLevel      =   0
  74.       ErrorLevelOVD   =   0
  75.       ErrorLine       =   0
  76.       ErrorLogName    =   "CSSAMPLE.LOG"
  77.       ErrorLogText    =   ""
  78.       ErrorMemoryEnabled=   0   'False
  79.       ErrorMessage    =   ""
  80.       ErrorMessageVB  =   ""
  81.       ErrorModule     =   ""
  82.       ErrorNumber     =   0
  83.       ErrorProcedure  =   ""
  84.       ErrorResult     =   0
  85.       ErrorTableName  =   "CSSAMPLE.CSM"
  86.       ErrorUserID     =   ""
  87.       Left            =   120
  88.       LogEnabled      =   -1  'True
  89.       LogFormat       =   0  'Text
  90.       LogOnly         =   0   'False
  91.       MessageLiteral  =   -1  'True
  92.       TableEnabled    =   -1  'True
  93.       Top             =   4320
  94.       UserLogField1   =   ""
  95.       UserLogField2   =   ""
  96.       UserLogField3   =   ""
  97.       UserLogField4   =   ""
  98.       UserLogField5   =   ""
  99.       UserLogTitle1   =   "User Log Field:"
  100.       UserLogTitle2   =   "User Log Field:"
  101.       UserLogTitle3   =   "User Log Field:"
  102.       UserLogTitle4   =   "User Log Field:"
  103.       UserLogTitle5   =   "User Log Field:"
  104.    End
  105.    Begin CommandButton Command7 
  106.       Caption         =   "No VB Msg."
  107.       Height          =   375
  108.       Left            =   120
  109.       TabIndex        =   23
  110.       Top             =   1320
  111.       Width           =   1335
  112.    End
  113.    Begin TextBox Text1 
  114.       Height          =   735
  115.       Left            =   240
  116.       MultiLine       =   -1  'True
  117.       ScrollBars      =   2  'Vertical
  118.       TabIndex        =   22
  119.       Text            =   "CSsample VB Error Ease log text."
  120.       Top             =   5880
  121.       Width           =   7095
  122.    End
  123.    Begin CommandButton Command12 
  124.       Caption         =   "Change Log"
  125.       Height          =   375
  126.       Left            =   120
  127.       TabIndex        =   20
  128.       Top             =   3000
  129.       Width           =   1335
  130.    End
  131.    Begin CommandButton Command11 
  132.       Caption         =   "Change Table"
  133.       Height          =   375
  134.       Left            =   120
  135.       TabIndex        =   19
  136.       Top             =   2640
  137.       Width           =   1335
  138.    End
  139.    Begin CommandButton Command6 
  140.       Caption         =   "Level OVD"
  141.       Height          =   375
  142.       Left            =   120
  143.       TabIndex        =   17
  144.       Top             =   960
  145.       Width           =   1335
  146.    End
  147.    Begin CommandButton Command5 
  148.       Caption         =   "Log Entry"
  149.       Height          =   375
  150.       Left            =   120
  151.       TabIndex        =   11
  152.       Top             =   1680
  153.       Width           =   1335
  154.    End
  155.    Begin OptionButton Option1 
  156.       Caption         =   "Neither"
  157.       FontBold        =   -1  'True
  158.       FontItalic      =   0   'False
  159.       FontName        =   "Arial"
  160.       FontSize        =   8.25
  161.       FontStrikethru  =   0   'False
  162.       FontUnderline   =   0   'False
  163.       Height          =   255
  164.       Index           =   0
  165.       Left            =   5760
  166.       TabIndex        =   16
  167.       TabStop         =   0   'False
  168.       Top             =   360
  169.       Width           =   1095
  170.    End
  171.    Begin OptionButton Option1 
  172.       Caption         =   "Log Only"
  173.       FontBold        =   -1  'True
  174.       FontItalic      =   0   'False
  175.       FontName        =   "Arial"
  176.       FontSize        =   8.25
  177.       FontStrikethru  =   0   'False
  178.       FontUnderline   =   0   'False
  179.       Height          =   255
  180.       Index           =   3
  181.       Left            =   5760
  182.       TabIndex        =   15
  183.       TabStop         =   0   'False
  184.       Top             =   1080
  185.       Width           =   1095
  186.    End
  187.    Begin OptionButton Option1 
  188.       Caption         =   "MSG Only"
  189.       FontBold        =   -1  'True
  190.       FontItalic      =   0   'False
  191.       FontName        =   "Arial"
  192.       FontSize        =   8.25
  193.       FontStrikethru  =   0   'False
  194.       FontUnderline   =   0   'False
  195.       Height          =   255
  196.       Index           =   2
  197.       Left            =   5760
  198.       TabIndex        =   14
  199.       TabStop         =   0   'False
  200.       Top             =   840
  201.       Width           =   1095
  202.    End
  203.    Begin OptionButton Option1 
  204.       Caption         =   "MSG+ LOG"
  205.       FontBold        =   -1  'True
  206.       FontItalic      =   0   'False
  207.       FontName        =   "Arial"
  208.       FontSize        =   8.25
  209.       FontStrikethru  =   0   'False
  210.       FontUnderline   =   0   'False
  211.       Height          =   255
  212.       Index           =   1
  213.       Left            =   5760
  214.       TabIndex        =   13
  215.       TabStop         =   0   'False
  216.       Top             =   600
  217.       Value           =   -1  'True
  218.       Width           =   1095
  219.    End
  220.    Begin Frame Frame1 
  221.       Caption         =   "ERR Actions:"
  222.       Height          =   1335
  223.       Left            =   5640
  224.       TabIndex        =   12
  225.       Top             =   120
  226.       Width           =   1335
  227.    End
  228.    Begin CommandButton Command4 
  229.       Caption         =   "End"
  230.       Height          =   375
  231.       Left            =   120
  232.       TabIndex        =   10
  233.       Top             =   3600
  234.       Width           =   1335
  235.    End
  236.    Begin CommandButton Command3 
  237.       Caption         =   "VB Error"
  238.       Height          =   375
  239.       Left            =   120
  240.       TabIndex        =   9
  241.       Top             =   600
  242.       Width           =   1335
  243.    End
  244.    Begin CommandButton Command2 
  245.       Caption         =   "User Error"
  246.       Height          =   375
  247.       Left            =   120
  248.       TabIndex        =   8
  249.       Top             =   240
  250.       Width           =   1335
  251.    End
  252.    Begin Line Line1 
  253.       X1              =   1680
  254.       X2              =   5400
  255.       Y1              =   3720
  256.       Y2              =   3720
  257.    End
  258.    Begin Label Label2 
  259.       Caption         =   "Log Text:"
  260.       Height          =   255
  261.       Left            =   240
  262.       TabIndex        =   24
  263.       Top             =   5640
  264.       Width           =   1215
  265.    End
  266.    Begin Label Label1 
  267.       Caption         =   "ErrorBoxResponse:"
  268.       Height          =   375
  269.       Index           =   9
  270.       Left            =   1680
  271.       TabIndex        =   21
  272.       Top             =   3240
  273.       Width           =   3615
  274.    End
  275.    Begin Label Label1 
  276.       Caption         =   "ErrorResult:"
  277.       Height          =   375
  278.       Index           =   8
  279.       Left            =   1680
  280.       TabIndex        =   18
  281.       Top             =   2760
  282.       Width           =   3615
  283.    End
  284.    Begin Label Label1 
  285.       Caption         =   "ErrorMessage Returned:"
  286.       Height          =   1095
  287.       Index           =   7
  288.       Left            =   1680
  289.       TabIndex        =   7
  290.       Top             =   4800
  291.       Width           =   5655
  292.    End
  293.    Begin Label Label1 
  294.       Caption         =   "ErrorLevel Returned:"
  295.       Height          =   375
  296.       Index           =   6
  297.       Left            =   1680
  298.       TabIndex        =   6
  299.       Top             =   4320
  300.       Width           =   3615
  301.    End
  302.    Begin Label Label1 
  303.       Caption         =   "ErrorNumber Returned:"
  304.       Height          =   375
  305.       Index           =   5
  306.       Left            =   1680
  307.       TabIndex        =   5
  308.       Top             =   3840
  309.       Width           =   3615
  310.    End
  311.    Begin Label Label1 
  312.       Caption         =   "ErrorLogText:"
  313.       Height          =   495
  314.       Index           =   4
  315.       Left            =   1680
  316.       TabIndex        =   0
  317.       Top             =   2160
  318.       Width           =   3615
  319.    End
  320.    Begin Label Label1 
  321.       Caption         =   "ErrorLogName:"
  322.       Height          =   375
  323.       Index           =   3
  324.       Left            =   1680
  325.       TabIndex        =   4
  326.       Top             =   1680
  327.       Width           =   3615
  328.    End
  329.    Begin Label Label1 
  330.       Caption         =   "ErrorTableName:"
  331.       Height          =   375
  332.       Index           =   2
  333.       Left            =   1680
  334.       TabIndex        =   3
  335.       Top             =   1200
  336.       Width           =   3615
  337.    End
  338.    Begin Label Label1 
  339.       Caption         =   "ErrorLine:"
  340.       Height          =   375
  341.       Index           =   1
  342.       Left            =   1680
  343.       TabIndex        =   2
  344.       Top             =   720
  345.       Width           =   3615
  346.    End
  347.    Begin Label Label1 
  348.       Caption         =   "ErrorNumber:"
  349.       Height          =   375
  350.       Index           =   0
  351.       Left            =   1680
  352.       TabIndex        =   1
  353.       Top             =   240
  354.       Width           =   3615
  355.    End
  356. Option Explicit
  357. Dim giNoVBmsg, gEndearly, gTrashValues As Integer
  358. Sub Check1_Click ()
  359. FRM_Main!CSerr1.DeveloperMode = Check1
  360. End Sub
  361. Sub Check2_Click ()
  362. FRM_Main!CSerr1.Enabled = Check2
  363. End Sub
  364. Sub Check3_Click ()
  365. FRM_Main!CSerr1.MessageLiteral = Check3
  366. End Sub
  367. Sub Check4_Click ()
  368. FRM_Main!CSerr1.ErrorMemoryEnabled = Check4
  369. End Sub
  370. Sub Check5_Click ()
  371. FRM_Main!CSerr1.DisplayNumber = Check5
  372. End Sub
  373. Sub Check6_Click ()
  374. FRM_Main!CSerr1.LogFormat = Check6
  375. End Sub
  376. Sub Command11_Click ()
  377. Dim szBuf As String
  378. szBuf = InputBox("Enter New Message Table Path and Name: ")
  379. If Len(szBuf) > 0 Then
  380.     FRM_Main!CSerr1.ErrorTableName = szBuf
  381. End If
  382. End Sub
  383. Sub Command12_Click ()
  384. Dim szBuf As String
  385. szBuf = InputBox("Enter New History log file Path and Name: ")
  386. If Len(szBuf) > 0 Then
  387.     FRM_Main!CSerr1.ErrorLogName = szBuf
  388. End If
  389. End Sub
  390. Sub Command2_Click ()
  391.     Main_Process (2)
  392. End Sub
  393. Sub Command3_Click ()
  394.     Main_Process (3)
  395. End Sub
  396. Sub Command4_Click ()
  397. End Sub
  398. Sub Command5_Click ()
  399. FRM_Main!CSerr1.ErrorLogText = Text1
  400. FRM_Main!CSerr1.ErrorModule = "CSSAMPLE.FRM"
  401. FRM_Main!CSerr1.ErrorProcedure = "Command5_Click"
  402. FRM_Main!CSerr1.BypassLog = True
  403. FRM_Main!CSerr1.LogOnly = True
  404. End Sub
  405. Sub Command6_Click ()
  406. Dim x As Integer
  407. x = InputBox("Enter Override value: ", "Error Override")
  408. FRM_Main!CSerr1.ErrorLevelOVD = x
  409. End Sub
  410. Sub Command7_Click ()
  411. giNoVBmsg = 1
  412. End Sub
  413. Sub CSerr1_ErrorLogSet ()
  414. '--->VB Error Ease<---Set the VB Error Information
  415. FRM_Main!CSerr1.ErrorLine = Erl
  416. FRM_Main!CSerr1.ErrorMessageVB = Error$(FRM_Main!CSerr1)
  417. '--->VB Error Ease<---End Of Block
  418. 'Code to demonstrate the User defined Log fields.
  419. CSerr1.UserLogTitle1 = "User Defined Title1"
  420. CSerr1.UserLogField1 = "SOME INFO TO PUT IN THIS FIELD1"
  421. CSerr1.UserLogTitle2 = "User Defined Title2"
  422. CSerr1.UserLogField2 = "SOME INFO TO PUT IN THIS FIELD2"
  423. CSerr1.UserLogTitle3 = "User Defined Title3"
  424. CSerr1.UserLogField3 = "SOME INFO TO PUT IN THIS FIELD3"
  425. CSerr1.UserLogTitle4 = "User Defined Title4"
  426. CSerr1.UserLogField4 = "SOME INFO TO PUT IN THIS FIELD4"
  427. CSerr1.UserLogTitle5 = "User Defined Title5"
  428. CSerr1.UserLogField5 = "SOME INFO TO PUT IN THIS FIELD5"
  429. ' Special code for Message Level Overrides
  430. Select Case FRM_Main!CSerr1.ErrorNumber
  431. Case 53      'illegal function call
  432.     ' This is only overridable for the Command3_Click procedure.
  433.     If FRM_Main!CSerr1.ErrorProcedure = "Main_Process" Then
  434.         ' Change Message level to Warning.
  435.         FRM_Main!CSerr1.ErrorLevelOVD = 11
  436.     End If
  437. End Select
  438. End Sub
  439. Sub CSerr1_ErrorTrap (ErrorNumber As Integer, ErrorLevel As Integer, ErrorMessage As String, ErrorAction As Integer)
  440. On Error GoTo 0  ' This is needed to prevent looping.
  441. Label1(0) = "ErrorNumber:    " & FRM_Main!CSerr1.ErrorNumber
  442. Label1(1) = "ErrorLine:      " & FRM_Main!CSerr1.ErrorLine
  443. Label1(2) = "ErrorTableName: " & FRM_Main!CSerr1.ErrorTableName
  444. Label1(3) = "ErrorLogName: " & FRM_Main!CSerr1.ErrorLogName
  445. Label1(4) = "ErrorLogText: " & FRM_Main!CSerr1.ErrorLogText
  446. Label1(5) = "ErrorNumber Returned: " & ErrorNumber
  447. Label1(6) = "ErrorLevel Returned: " & ErrorLevel
  448. Label1(7) = "ErrorMessage Returned: " & ErrorMessage
  449. 'Label1(8) = "Error Message Property: " & FRM_Main!CSerr1.ErrorMessage
  450. If gTrashValues = 1 Then
  451.     ErrorNumber = 0
  452.     ErrorLevel = 0
  453.     ErrorMessage = ""
  454.     gTrashValues = 0
  455. End If
  456. If gEndearly = 1 Then
  457.     gEndearly = 0
  458.     End
  459. End If
  460. If option1(0) = True Then
  461.     ErrorAction = CS_ACTION_IGNORE
  462. End If
  463. If option1(1) = True Then
  464.     'nothing do both msg and log...
  465.     'same as ErrAction = CS_ACTION_DEFAULT
  466. End If
  467. If option1(2) = True Then
  468.     ErrorAction = CS_ACTION_MESSAGEONLY
  469. End If
  470. If option1(3) = True Then
  471.     ErrorAction = CS_ACTION_LOGONLY
  472. End If
  473. End Sub
  474. Sub Exit_Application ()
  475. MsgBox "In the Exit_Application routine."
  476. End Sub
  477. Sub Form_Load ()
  478. '--->VB Error Ease<---Lock
  479. '--->VB Error Ease<---Set the local Error Log Trace Information.
  480. FRM_Main!CSerr1.ErrorProcedure = "Form_Load"
  481. FRM_Main!CSerr1.ErrorModule = "CSSAMPLE.FRM"
  482. 'Set Local Scope Error Trap
  483. On Error GoTo VBEASE_FORM_LOAD:
  484. '--->VB Error Ease<---End of Code Block
  485. 'Set the Network Application User ID.
  486. FRM_Main!CSerr1.ErrorUserID = "LAN ID"
  487. 'Set the Message Table name and location.
  488. FRM_Main!CSerr1.ErrorTableName = App.Path & "\" & FRM_Main!CSerr1.ErrorTableName
  489. 'Set the Histiry Log File name and location.
  490. FRM_Main!CSerr1.ErrorLogName = App.Path & "\" & FRM_Main!CSerr1.ErrorLogName
  491. 'Set Check box defaults
  492. Check1 = Abs(FRM_Main!CSerr1.DeveloperMode)
  493. Check2 = Abs(FRM_Main!CSerr1.Enabled)
  494. Check3 = Abs(FRM_Main!CSerr1.MessageLiteral)
  495. Check4 = Abs(FRM_Main!CSerr1.ErrorMemoryEnabled)
  496. Check5 = Abs(FRM_Main!CSerr1.DisplayNumber)
  497. Check6 = Abs(FRM_Main!CSerr1.LogFormat)
  498. '--->VB Error Ease<---Local Scope Error Block
  499. 'Normal Exit will Remove Local Error Trap.
  500. FORM_LOAD_EXIT:
  501. Exit Sub
  502. 'Error Block Entry Point
  503. VBEASE_FORM_LOAD:
  504. 'Invoke The VB Error Ease VBX.
  505. FRM_Main!CSerr1.ErrorNumber = Err
  506. 'Determine how and where to continue processing after this
  507. 'error has been handled by VB Error Ease.
  508. Select Case FRM_Main!CSerr1.ErrorResult
  509. Case CS_LOG_ONLY, CS_OK_LOW, CS_OK_HIGH, CS_YES_LOW, CS_YES_HIGH, CS_IGNORE_LOW, CS_IGNORE_HIGH
  510.      Resume Next
  511. Case CS_RETRY_LOW, CS_RETRY_HIGH
  512.      Resume
  513. Case CS_OK_FATAL, CS_ABORT_LOW, CS_ABORT_HIGH
  514.      'Invoke your VB Exit_Application routine.(Exit Cleanly)
  515.      'Replace the following Expicit End with a call to
  516.      'your Exit _Application routine.
  517.      Exit_Application
  518. Case CS_DISABLED
  519.      'VB Error Ease is disabled,  error must be trapped!
  520. Case Else
  521.      Resume FORM_LOAD_EXIT
  522. End Select
  523. '--->VB Error Ease<---End of Code Block
  524. End Sub
  525. Sub Main_Process (iFeature As Integer)
  526. '--->VB Error Ease<---Lock
  527. '--->VB Error Ease<---Set the local Error Log Trace Information.
  528. FRM_Main!CSerr1.ErrorProcedure = "Main_Process"
  529. FRM_Main!CSerr1.ErrorModule = "CSSAMPLE.FRM"
  530. '--->Set Local Scope Error Trap.
  531. On Error GoTo VBEASE_MAIN_PROCESS
  532. '--->VB Error Ease<---End of Code Block
  533. 'Variable Declaration(s)
  534. Dim iMsg As String
  535. 'Choose the feature to demonstrate
  536. Select Case iFeature
  537. Case 2  'Process a User defined Message.
  538.     iMsg = InputBox("Enter the user defined Message Number:", "User Message")
  539.     'Check for the Cancel Button
  540.     If Len(iMsg) > 0 Then
  541.         'Set the log text to some usefull information.
  542.         FRM_Main!CSerr1.ErrorLogText = Text1
  543.         'Note if a non-numeric is entered,VB Error Ease will handle the
  544. 60000
  545.         'VB Error 5 'illegal function call'.
  546.         Error Val(iMsg)
  547.         'This is where Resume Next will send us.
  548.         MsgBox "The program has performed a Resume Next."
  549.     End If
  550. Case 3  'Process a VB defined Error
  551. INVALIDVBNUMBER:
  552.     iMsg = InputBox("Enter the VB defined Error Number:", "VB Error")
  553.     'Check for the Cancel Button
  554.     If Len(iMsg) > 0 Then
  555.         'Set the log text to some usefull information.
  556.         FRM_Main!CSerr1.ErrorLogText = Text1
  557.         'Validtate the VB Error Range
  558.         If Val(iMsg) < 1 Or Val(iMsg) > 10000 Then
  559.             'Invalid range, lets let VB Error Ease handle this message.
  560.             Error ERR_INVALID_VB_NUMBER
  561.         End If
  562.         'Note if a non-numeric is entered,VB Error Ease will handle the
  563.         'VB Error 5 'illegal function call'.
  564.         Error Val(iMsg)
  565.     End If
  566. End Select
  567. 'Set the labels for the Result Codes.
  568. Label1(8) = "ErrorResult: " & FRM_Main!CSerr1.ErrorResult
  569. Label1(9) = "ErrorBoxResponse: " & FRM_Main!CSerr1.ErrorBoxResponse
  570. 'Normal exit
  571. GoTo MAIN_PROCESS_EXIT
  572. 'Resume to Tag demo. code.
  573. TAG1:
  574. MsgBox "The program has resumed to the TAG1 tag."
  575. 'Set the labels for the Result Codes.
  576. Label1(8) = "ErrorResult: " & FRM_Main!CSerr1.ErrorResult
  577. Label1(9) = "ErrorBoxResponse: " & FRM_Main!CSerr1.ErrorBoxResponse
  578. '--->VB Error Ease<---Local Scope Error Block
  579. 'Normal Exit will Remove Local Error Trap.
  580. MAIN_PROCESS_EXIT:
  581. Exit Sub
  582. 'Error Block Entry Point
  583. VBEASE_MAIN_PROCESS:
  584. 'Invoke The VB Error Ease VBX.
  585. FRM_Main!CSerr1.ErrorNumber = Err
  586. 'Determine how and where to continue processing after this
  587. 'error has been handled by VB Error Ease.
  588. Select Case FRM_Main!CSerr1.ErrorResult
  589. Case CS_OK_LOW, CS_YES_LOW, MYEXPLICIT60
  590.     Resume Next
  591. Case CS_ABORT_LOW, CS_ABORT_HIGH, CS_OK_FATAL, CS_NO_LOW, CS_NO_HIGH
  592.     Exit_Application
  593. Case CS_RETRY_LOW, CS_RETRY_HIGH
  594.     Resume
  595. Case CS_YES_HIGH
  596.     Resume TAG1
  597. Case CS_OK_HIGH
  598.     Resume INVALIDVBNUMBER
  599. Case CS_IGNORE_LOW, CS_IGNORE_HIGH
  600.     Exit Sub
  601. Case CS_DISABLED
  602.     'VB Error Ease is disabled,  error must be trapped!
  603. Case Else
  604.     Resume MAIN_PROCESS_EXIT
  605. End Select
  606. '--->VB Error Ease<---End of Code Block
  607. End Sub
  608.